home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / util / batch / ShellDemo.lha / Demo.exe < prev   
Text File  |  1996-10-28  |  5KB  |  236 lines
  1. FailAt 21
  2. Set DRI `Which Demo.drive`
  3. IF "$DRI" eq ""
  4. Echo "Cannot find 'Demo.drive' !*nDemo will be not fully functional !!"
  5. $DRI eq "Demo.drive"
  6. EndIF
  7. SetFont topaz 8
  8. Echo "cThe"
  9. Resident >NIL: C:Wait PURE
  10. Resident >NIL: C:Eval PURE
  11. Echo "            SHell - Master"
  12. Set H1 "            HH "
  13. Set H2 "    HHHH    HH                    _     _ "
  14. Set H3 "    HHHH    HH  ####,              \   /  "
  15. Set H4 "    HHHHHHHHHH      #  /HHHH __ __  \ / "
  16. Set H5 "    HHHH    HH ,### # HH/    HH/     Y "
  17. Set H6 "    HHHH    HH #    # HH     HH      | "
  18. Set H7 "    HHHH    HH  ####' HH     HH     _|_ "
  19.  
  20. Set dx 1
  21. Set x 49
  22.  
  23. Lab Sloupce
  24.  
  25. Echo "$H1" FIRST $x LEN $dx
  26. Echo "$H2" FIRST $x LEN $dx
  27. Echo "$H3" FIRST $x LEN $dx
  28. Echo "$H4" FIRST $x LEN $dx
  29. Echo "$H5" FIRST $x LEN $dx
  30. Echo "$H6" FIRST $x LEN $dx
  31. Echo "$H7" FIRST $x LEN $dx
  32.  
  33. Set x `eval $x-1`
  34. Set dx `eval $dx+1`
  35.  
  36. IF "$x" gt "1" VAL
  37. Echo "A" NOLINE
  38. Skip Sloupce BACK
  39. EndIF
  40.  
  41. Echo ""
  42. Set x "       P R E S E N T S            The."
  43. Set dx 1
  44. Lab Presents
  45. Echo "$x" FIRST $dx LEN 1 NOLINE
  46. Set dx `eval $dx+1`
  47. IF NOT "$dx" gt "40" VAL
  48. Skip Presents BACK
  49. EndIF
  50.  
  51. Wait
  52. Echo "*n                      Shell-Demo"
  53. Wait
  54.  
  55. Set dx 64
  56. Lab UnderLine
  57.  
  58. Set x $dx
  59. Lab Underline1
  60. Echo "_" NOLINE
  61. Set x `eval $x-1`
  62. IF "$x" gt "0" VAL
  63. Skip Underline1 BACK
  64. EndIF
  65. Echo ""
  66.  
  67. Set dx `eval $dx/2`
  68. IF "$dx" gt "0" VAL
  69. Skip UnderLine BACK
  70. EndIF
  71.  
  72. Echo "_  This demo uses only THE STANDARD COMMODORE COMMANDS !"
  73. Echo "_  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^~^"
  74. Echo ""
  75. Echo "Please give me Your Name : " NOLINE
  76. Set Jmeno ""
  77. Set >NIL: Jmeno ?
  78.  
  79. Echo ""
  80.  
  81. Echo "cIs Your shell window large enough ?*n*n*n"
  82. IF "$Jmeno" eq ""
  83. Set Jmeno "No Name"
  84. EndIF
  85.  
  86. Set Jmeno "`Echo "$Jmeno           " FIRST 1 LEN 10`"
  87.  
  88. Set x 50
  89. Lab Auticko
  90.  
  91. Echo " --------------\___DB | The         |---\DB |  $Jmeno |   \\DB" NOLINE
  92. Echo " |    transport|\___|\DB |  __       __| ~~~~HHDB |_//\\_____//\\_____/DB____\/       \/DA" NOLINE
  93.  
  94. Set x `eval $x-1`
  95. IF "$x" gt "1" VAL
  96. Skip Auticko BACK
  97. EndIF
  98.  
  99. Echo "*n*n*n*n*n"
  100. Set x 49
  101. Lab MazStopu
  102. Echo " " NOLINE
  103. IF "$x" gt "1" VAL
  104. Set x `eval $x-1`
  105. Skip MazStopu BACK
  106. EndIF
  107.  
  108. Set dx 7
  109. Lab SmazAuto
  110. Echo "XXXXXXXXXXXXXXXXXXXXXXBD                      AD" NOLINE
  111. Set dx `eval $dx-1`
  112. IF "$dx" gt "0" VAL
  113. Skip SmazAuto BACK
  114. EndIF
  115.  
  116. Echo "B                      c"
  117.  
  118. Set x 3
  119. Set x1 5
  120. Lab Sourad
  121. Echo "$x;40H||${x1}H++++"
  122. Set x `eval $x+1`
  123. Set x1 `eval $x1+4`
  124. IF NOT "$x" gt "19" VAL
  125. Skip Sourad BACK
  126. EndIF
  127.  
  128. Echo "0HY=X^3/750+X^2/30+X/4"
  129.  
  130. Set x -32
  131. Lab Parabola
  132.  
  133. Set y `eval 19-((($x)*(-25+($x)*(33+($x))/10))/200)`
  134. Set x1 `eval $x+40`
  135. Set x `eval $x+1`
  136. IF "$y" gt "0" VAL
  137. Echo "$y;${x1}HHH" NOLINE
  138. EndIF
  139.  
  140. IF NOT "$x" gt "31" VAL
  141. Skip Parabola BACK
  142. EndIF
  143.  
  144. Wait 4
  145.  
  146. Echo "c*n*n        Build Your Way !!!"
  147. Echo "        Drive with <RETURN>,  end it with q<RETURN>"
  148. Echo "        Pres five times <RETURN>,  you will find out."
  149. Set Smer 1
  150. Set x 30
  151. UnSetENV T:DemoSmer
  152. ChangeTaskPri 0
  153. NewShell CON:500/40/140/50/Drive!! FROM "$DRI"
  154.  
  155. ChangeTaskPri -2
  156. Lab Smyka
  157. Set Trash `GetENV T:DemoSmer`
  158. IF NOT "$Trash" eq "1"
  159. Skip Smyka BACK
  160. EndIF
  161.  
  162. Lab Cesta
  163.  
  164. Echo "                                                                  " LEN $x NOLINE
  165. Echo "##           ##"
  166. Set Smer `GetENV T:DemoSmer`
  167. Set x `eval $x+$Smer`
  168.  
  169. IF NOT "$x" gt "0" VAL
  170. Set x 1
  171. EndIF
  172.  
  173. IF "$x" gt "63" VAL
  174. Set x 63
  175. EndIF
  176.  
  177. IF NOT "$Smer" eq "000"
  178. Skip Cesta BACK
  179. EndIF
  180.  
  181. Wait
  182. Echo "*n*n*n*n*n*n*n*n*n*n*n*n*n*n*n*n*n*n*n*n*n*n*n*nc*n*n"
  183.  
  184. Set dx 1
  185. Set x 49
  186. Lab Sloupce2
  187. Set spc "                                                                  "
  188. Echo "$spc" LEN $x NOLINE
  189. Echo "$H1" FIRST $x LEN $dx
  190. Echo "$spc" LEN $x NOLINE
  191. Echo "$H2" FIRST $x LEN $dx
  192. Echo "$spc" LEN $x NOLINE
  193. Echo "$H3" FIRST $x LEN $dx
  194. Echo "$spc" LEN $x NOLINE
  195. Echo "$H4" FIRST $x LEN $dx
  196. Echo "$spc" LEN $x NOLINE
  197. Echo "$H5" FIRST $x LEN $dx
  198. Echo "$spc" LEN $x NOLINE
  199. Echo "$H6" FIRST $x LEN $dx
  200. Echo "$spc" LEN $x NOLINE
  201. Echo "$H7" FIRST $x LEN $dx
  202.  
  203. Set x `eval $x-1`
  204. Set dx `eval $dx+1`
  205.  
  206. IF "$x" gt "1" VAL
  207. Echo "A" NOLINE
  208. Skip Sloupce2 BACK
  209. EndIF
  210.  
  211. Echo "*n*n    " NOLINE
  212.  
  213.  
  214. Set x "You reached The End of another demo    :^)                    I Think, that this is the first demo spread with the source code :^) "
  215. Set dx 1
  216. Lab Konscroll
  217. Echo "$x" FIRST $dx LEN 1 NOLINE
  218. Set dx `eval $dx+1`
  219. IF NOT "$dx" gt "120" VAL
  220. Skip Konscroll BACK
  221. EndIF
  222.  
  223. Echo "*n*n"
  224. Set x "        Made by Harry  1996  -  Public Domain                    E-MAIL: mares1@menza.mff.cuni.cz "
  225. Set dx 1
  226. Lab Konscroll2
  227. Echo "$x" FIRST $dx LEN 1 NOLINE
  228. Set dx `eval $dx+1`
  229. IF NOT "$dx" gt "100" VAL
  230. Skip Konscroll2 BACK
  231. EndIF
  232.  
  233. Echo "*n*n"
  234.  
  235. ;$VER: The Shell Demo (13.10.96)
  236.